home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / tools / util574.d64 / .trickkiste i < (.txt) < prev    next >
Commodore BASIC  |  1995-08-06  |  15KB  |  383 lines
  1. 10 GOSUB4900
  2. 99 REM**************MENUE***************
  3. 100 POKE53280,15:POKE53281,15:PRINTCHR$(147);CHR$(142);
  4. 101 PRINT"[146][144]                                        ";
  5. 105 PRINT"                                        ";
  6. 106 PRINT"  [213][195][201][146]  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]     ";
  7. 107 PRINT"  [194]1[194][146]  [194]*  P E E K / P O O K E S *[194][146]     ";
  8. 108 PRINT"  [202][195][203][146]  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]     ";
  9. 109 PRINT"  [213][195][201][146]  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]     ";
  10. 110 PRINT"  [194]2[194][146]  [194]*       LISTSCHUTZ       *[194][146]     ";
  11. 111 PRINT"  [202][195][203][146]  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]     ";
  12. 112 PRINT"  [213][195][201][146]  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]     ";
  13. 113 PRINT"  [194]3[194][146]  [194]* DISKETTEN/CASSETTENTIP *[194][146]     ";
  14. 114 PRINT"  [202][195][203][146]  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]     ";
  15. 115 PRINT"  [213][195][201][146]  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][146]     ";
  16. 116 PRINT"  [194]4[194][146]  [194]*       SONSTIGES        *[194][146]     ";
  17. 117 PRINT"  [202][195][203][146]  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][146]     ";
  18. 118 PRINT"                                        ";
  19. 119 PRINT"  [176][195][174][146]  [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146]       "
  20. 120 PRINT"  [194]5[194][146]  [194]****PROGRAMM  ENDE****[194][146]       "
  21. 121 PRINT"  [173][195][189][146]  [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]       "
  22. 122 PRINT"                                       ";
  23. 123 PRINT"                                       ";
  24. 124 PRINT"                                        ";
  25. 125 REM*********MENUE-ENDE**************
  26. 128 WAIT198,1:GETA$
  27. 195 RESTORE
  28. 199 REM**********SCROLLING ROUTINE*******
  29. 200 AD=49152:FORI=0TO64:READX:POKEAD+I,X:NEXT
  30. 201 FORI=1TO35:SYSAD:NEXT
  31. 202 DATA169,80,133,78,133,80,169,4,133,79,169,216,133,81,162,23,160,1,177,78
  32. 203 DATA136,145,78,200,177,80,136,145,80,200,200,192,40,208,239,24,165,78,105
  33. 204 DATA40,133,78,165,79,105,0,133,79,24,165,80,105,40,133,80,165,81,105,0
  34. 205 DATA133,81,202,208,208,96
  35. 210 IFA$<CHR$(49)ORA$>CHR$( 54)THEN 126
  36. 211 ONASC(A$)-48GOTO 500,1000, 1500, 2000,8000
  37. 212 REM**************SCROLLING-ENDE******
  38. 499 REM*************PEEK/POOKES*********
  39. 500 PRINT"[147]"
  40. 502 PRINT"      P E E K  UND  P O O K E S     1"
  41. 504 PRINT"POKE 650,128[146] REPEATFUNKTION ALLER       TASTEN."
  42. 506 PRINT"POKE 650,0[146] REPEATFUNKTION NORMAL."
  43. 508 PRINT"POKE 650,64[146] REPEATFUNKTION GANZ AB      SCHALTEN."
  44. 509 PRINT"======================================"
  45. 510 PRINT"POKE 657,128[146] VERHINDERT DAS UMSCHAL-    TEN AUF GROSS/KLEINSCHRIFT."
  46. 511 PRINT"======================================"
  47. 512 PRINT"POKE 19,64[146] SCHALTET DAS FRAGEZEICHEN"
  48. 514 PRINT"BEI INPUT AUS.POKE 19,0[146] NORMALZUSTAND"
  49. 515 PRINT"======================================"
  50. 516 PRINT"POKE199,1:[146]VOR DER 'PRINTANWEISUNG'       BEWIRKT REVERSE AUSGABE"
  51. 518 PRINT"POKE 199,0[146] NORMALZUSTAND"
  52. 519 PRINT"======================================"
  53. 520 PRINT"POKE 53270,192[146] 38 ZEICHEN PRO ZEILE."
  54. 521 POKE198,0:WAIT653,2:GOSUB7000
  55. 522 PRINT"[147]"
  56. 524 PRINT"      P E E K  UND  P O O K E S     2"
  57. 526 PRINT"POKE 53265,PEEK(53265) AND 239"
  58. 528 PRINT"BILDSCHIRM AUSSCHALTEN."
  59. 530 PRINT"POKE 53265,PEEK(53265) OR 16"
  60. 532 PRINT"BILDSCHIRM EINSCHALTEN."
  61. 533 PRINT"======================================"
  62. 534 PRINT"PRINTPEEK(63)+PEEK(64)*256[146]"
  63. 536 PRINT"ERGIBT DIE NUMMER DER DATA-ZEILE,DIE"
  64. 538 PRINT"ZULETZT GELESEN WURDE."
  65. 539 PRINT"======================================"
  66. 540 PRINT"POKE 58,0[146] ERMOEGLICHT GET IM DIREKT-    MODUS."
  67. 542 PRINT"POKE 204,0[146] SCHALTET DEN CURSOR BEI      GET EIN."
  68. 544 PRINT"POKE 204,1[146] SCHALTET DEN CURSOR AUS."
  69. 545 PRINT"======================================"
  70. 546 PRINT"POKE 56325,X[146] KONTOLLIERT DIE GESCHWIN-  DIGKEIT DES KURORS."
  71. 547 PRINT"X=30 OPTIMALER WERT."
  72. 548 PRINT"======================================"
  73. 549 PRINT"POKE 652,X[146] VERZOEGERT DIE REPEATFUNK-   TION.(1<=X<=255)
  74. 996 [151]198,0:[146]653,2:[141]7000
  75. 997 [137]100
  76. 998 [143]************PEEK/POOKES-ENDE*****
  77. 999 [143]************LISTSCHUTZ***********
  78. 1000 [153]"LOAD"
  79. 1010 [153]"               LISTSCHUTZ              1"
  80. 1015 [153]"HIER EINIGE VARIANTEN ZUM LISTSCHUTZ"
  81. 1020 [153]"======================================="
  82. 1025 [153]"MIT POKE 775,20WAIT LAESST SICH EIN"
  83. 1030 [153]"PROGRAMM NICHT MEHR LISTEN"
  84. 1032 [153]"POKE 775,167WAIT HEBT DIESEN AUF."
  85. 1033 [153]"======================================="
  86. 1034 [153]"BEI POKE 808,239WAIT IST RUN/STOP NICHT"
  87. 1036 [153]"MOEGLICH"
  88. 1037 [153]"======================================="
  89. 1038 [153]"BEI POKE 808,225WAIT KEIN RESTORE ODER LIST"
  90. 1040 [153]"MOEGLICH"
  91. 1042 [153]"POKE808,237WAIT HEBT DIESEN AUF."
  92. 1043 [153]"======================================="
  93. 1044 [153]"POKE 776,1WAIT SCHREIBT DEN BILDSCHIRM"
  94. 1046 [153]"MIT UNDEFINIERBAREN ZEICHEN VOLL."
  95. 1047 [153]"======================================="
  96. 1048 [153]"POKE 777,1 ODER POKE 120,2WAIT DANACH "
  97. 1050 [153]"WIRD KEIN BEFEHL MEHR AUSGEFUEHRT."
  98. 1051 [153]"======================================="
  99. 1052 [153]"POKE 770,0WAIT BEWIRKT EINE UNENDLICHE"
  100. 1054 [153]"[READY AUSGABE]"
  101. 1055 [151]198,0:[146]653,2:[141]7000
  102. 1057 [153]"LOAD"
  103. 1059 [153]"               LISTSCHUTZ              2"
  104. 1061 [153]"POKE 649,0WAIT DIE ZEICHEN DER GEDRUECK-"
  105. 1063 [153]"TEN TASTEN WERDEN NICHT ANGEZEIGT."
  106. 1065 [153]"POKE 649,10WAIT HEBT DIESEN AUF."
  107. 1066 [153]"======================================="
  108. 1067 [153]"POKE 819,253:POKE 818,253:POKE 808,225WAIT"
  109. 1069 [153]"BEWIRKT,DAS BEIM 'SAVE' VERSUCH EIN"
  110. 1071 [153]"MISSING FILENAME ERRORWAIT ERSCHEINT"
  111. 1072 [153]"======================================="
  112. 1073 [153]"POKE818,34:POKE 819,253:POKE 808,225WAIT"
  113. 1075 [153]"BEWIRKT,DAS BEIM 'SAVE' VERSUCH DER COM"
  114. 1077 [153]"PUTER KEINEN BEFEHL MEHR AUSFUEHRT."
  115. 1078 [153]"======================================="
  116. 1079 [153]"POKE649,0WAIT DIE TASTATUR WIRD VOLLSTAEN-"
  117. 1081 [153]"DIG ABGESCHALTET."
  118. 1082 [153]"======================================="
  119. 1083 [153]"EIN REM SHIFT/LWAIT IN EINER ZEILE WIRD"
  120. 1085 [153]"NICHT GELESEN,SONDERN EIN SYNTAX ERROR"
  121. 1087 [153]"AUSGEGEBEN."
  122. 1088 [153]"======================================="
  123. 1089 [153]"POKE 646,PEEK(53281)WAIT MIT DIESER AN-"
  124. 1091 [153]"WEISUNG PASST SICH DER CURSOR DEM HIN-"
  125. 1093 [153]"TERGRUND AN."
  126. 1095 [151]198,0:[146]653,2:[141]7000
  127. 1097 [153]"LOAD"
  128. 1099 [153]"               LISTSCHUTZ              3"
  129. 1101 [153]"POKE 120,0WAIT VERANLASST DAS DER RECH-"
  130. 1103 [153]"NER ZWAR ALLE ZEICHEN DER TASTATUR AN-"
  131. 1105 [153]"NIMMT,JEDOCH KEINEN BEFEHL AUSFUEHRT."
  132. 1106 [153]"======================================"
  133. 1107 [153]"NACH EINEM 'RESET' KEINE RUECKKEHR DES  CURSORS."
  134. 1109 [153]"POKE818,34:POKE819,253:POKE 808,225"
  135. 1111 [153]"ZURUECKSETZEN MIT:"
  136. 1113 [153]"POKE818,237:POKE819,245:POKE808,237."
  137. 1114 [153]"======================================"
  138. 1116 [153]"LISTING NICHT LESBAR MIT:"
  139. 1118 [153]"POKE 2050,0WAIT NORMAL POKE2050,8"
  140. 1119 [153]"======================================"
  141. 1120 [153]"POKE 776,1WAIT UNDEFINIERBARE ZEICHEN."
  142. 1122 [153]"POKE 777,1